www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\Rss.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Rss_Head.asp"-->
<%
set rs=conn.execute(sql)
if not rs.eof then
  do while not rs.eof
  	Src_Img=""
  	Src_Desc=""
  	Src_Desc = Rs("Src_Desc")
    if Web_IsUploadShowImg = 1 then	
      if rs("src_img")<>Web_Noimage and isnull(rs("src_img"))=false then
      	ImgPath_2 = Wodig.Pub_SetImgWH(Rs("Src_Img"),Web_ContentImgMaxWidth,Web_ContentImgMaxHeight)
      	Src_Img="<img "&ImgPath_2&" align='"&Web_ContentImgLocation&"'>"
      	Src_Img=AddSiteURL(Src_Img)
      end if
    end if
    if Src_Desc <> "" then
    	Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK")
    	Src_Desc = WoDig.get_StrLen(Src_Desc,Web_ContentTxtNum)
    	Src_Desc=AddSiteURL(Src_Desc)
    	
    end if
  	%>
  	<item>
  		<title><![CDATA[<%=rs("Src_Title")%>]]></title>
  	  <link><%=Web_HTTP&"SrcShow.asp?Src_ID="&rs("Src_ID")%></link>
  	  <author><%=Web_Name&"_"&Web_UserCName&":"&GetUserName(rs("Src_UserID"))%></author>
  	  <category><![CDATA[<%=GetCategory(rs("Src_ChildID"))%>]]></category>
  	  <pubDate><%=DateToStr(rs("Src_HitUpdate"),"w,d m y H:I:S")%></pubDate>
  	  <guid><%=Web_HTTP&"SrcShow.asp?Src_ID="&rs("Src_ID")%></guid>
  	  <description><![CDATA[<%=Src_Img&Src_Desc%>]]></description>
  	</item>
  	<%
  	rs.movenext
  loop
end if
%>
</channel>
</rss>